home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / comm / scr104a.zip / WC3TC3.TEM < prev   
Text File  |  1992-01-07  |  5KB  |  212 lines
  1. When nue? ^M
  2. When top? ^M
  3. When PAUSE ^M
  4. If $ne("@gateway","")
  5.    When "@gateway" "@response"
  6. EndIf
  7. If $ne("%port","@vport")
  8.    Set Port=@vport
  9. EndIf
  10. While NOT Connected
  11.    Dial/@waittime "@numberA" _
  12.                   "@numberB" _
  13.                   "@numberC" _
  14.                   "@numberD"
  15. EndWhile
  16. When "Are you" y
  17. Wait "first name ?"
  18. SendWait "*@username @password^M" _
  19.          "[ ]"       _    ; 1
  20.          "have new"  _    ; 2
  21.          "tin menu"  _    ; 3
  22.          "view it"   _    ; 4
  23.          "VOICE" "BIRTH"  ; 5 6
  24. If $ne("@gateway","")
  25.    EndWhen "@gateway"
  26. EndIf
  27. EndWhen "Are you"
  28. If Had 6
  29.    SendWait "~@dob^M" "[ ]" "have new" "tin menu" "view it"
  30. ElsIf Had 5
  31.    SendWait "~@phone^M" "[ ]" "have new" "tin menu" "view it"
  32. EndIf
  33. If Had 4
  34.    SendWait n "[ ]" "have new" "tin menu"
  35. EndIf
  36. If Had 3
  37.    SendWait n "[ ]" "have new"
  38. EndIf
  39. If Had 2
  40.    SendWait c "[ ]"
  41. EndIf
  42.  
  43. %ufile := "@packet.FUL"
  44. %uhandle := fopen %ufile
  45. If %NoError
  46.    %uhandle := fsize %usize
  47.    If %usize = 0
  48.       %uhandle := fclose
  49.    EndIf
  50. Else
  51.    %usize := 0
  52. EndIf
  53.  
  54. %dfile := "@packet.FDL"
  55. %dhandle := fopen %dfile
  56. If %NoError
  57.    %dhandle := fsize %dsize
  58.    If %dsize = 0
  59.       %dhandle := fclose
  60.    EndIf
  61. Else
  62.    %dsize := 0
  63. EndIf
  64.  
  65. If (%dsize # 0) | (%usize # 0)
  66.  
  67.    SendWait f "[ ]"
  68.  
  69.    If %usize # 0
  70.       SendWait u **B01 "[ ]" 13D "Select ["
  71.       If Had 4
  72.          SendWait z **B01 "[ ]" 13D
  73.       EndIf
  74.       If Had 3
  75.          %uhandle := fread %fname
  76.          While NoError
  77.             $rchpos %i %fname "\"
  78.             If %i # %maxint
  79.                Inc %i
  80.                $delete %fname 0 %i
  81.             EndIf
  82.             SendWait "%fname^M" 13D
  83.             %uhandle := fread %fname
  84.          EndWhile
  85.          SendWait ^M **B01 "[ ]"
  86.       EndIf
  87.       %uhandle := fclose
  88.       If Had 1
  89.          Upload zmodem .%currdir\%ufile
  90.          Wait "[ ]"
  91.          If NoError
  92.             If $eq("@confirm","Y")
  93.                Ask "Delete %ufile? (Y/N) " %reply 1 1 Y
  94.                $caps %reply
  95.             Else
  96.                %reply := "Y"
  97.             EndIf
  98.             If $equal %reply Y
  99.                Delete %ufile
  100.             EndIf
  101.          EndIf
  102.       EndIf
  103.    Else
  104.       Delete %ufile
  105.    EndIf
  106.  
  107.    If %dsize # 0
  108.       SendWait d 13D
  109.       %dhandle := fread %fname
  110.       While NoError
  111.          $rchpos %i %fname "\"
  112.          If %i # %maxint
  113.             Inc %i
  114.             $delete %fname 0 %i
  115.          EndIf
  116.          SendWait "%fname^M" 13D
  117.          %dhandle := fread %fname
  118.       EndWhile
  119.       %dhandle := fclose
  120.       SendWait ^M "[N]"
  121.       SendWait ^M **B00 "[ ]" "Select ["
  122.       If Had 3
  123.          SendWait z **B00 "[ ]"
  124.       EndIf
  125.       If Had 1
  126.          Download zmodem !
  127.          Wait "[ ]"
  128.       EndIf
  129.       SendWait q "[ ]"
  130.       If NoError
  131.          If $eq("@confirm","Y")
  132.             Ask "Delete %dfile? (Y/N) " %reply 1 1 Y
  133.             $caps %reply
  134.          Else
  135.             %reply := "Y"
  136.          EndIf
  137.          If $equal %reply Y
  138.             Delete %dfile
  139.          EndIf
  140.       EndIf
  141.    Else
  142.       Delete %dfile
  143.    EndIf
  144. EndIf
  145.  
  146. SendWait m "[ ]"
  147. SendWait @tomcatkey "TOMCAT MENU"
  148. EndWhen nue?
  149.  
  150. %ptrname := "%updir\@packet.PTR"
  151. If Exists %ptrname
  152.    SendWait c "CONFIGURE MENU"
  153.    SendWait u **B01 PACKER PROTOCOL
  154.    If Had 3
  155.       SendWait z **B01 PACKER
  156.    EndIf
  157.    If Had 2
  158.       SendWait z **B01
  159.    EndIf
  160.    Upload zmodem %ptrname
  161.    Wait "pointer file ["
  162.    SendWait ^M "CONFIGURE MENU"
  163.    SendWait q "TOMCAT MENU"
  164.    Ask "Delete .PTR file from upload directory? " %reply 1 1 Y
  165.    $caps %reply
  166.    If $eq(%reply,"Y")
  167.       Delete %ptrname
  168.    EndIf
  169. EndIf
  170.  
  171. %repname := "%updir\@packet.REP"
  172. If Exists %repname
  173.    SendWait u **B01 PACKER PROTOCOL
  174.    If Had 3
  175.       SendWait z **B01 PACKER
  176.    EndIf
  177.    If Had 2
  178.       SendWait z **B01
  179.    EndIf
  180.    Upload zmodem %repname
  181.    Wait "TOMCAT MENU"
  182.    If NoError
  183.      Delete %repname
  184.    EndIf
  185. EndIf
  186. SendWait d **B00 "when done?" "TOMCAT MENU" PACKER PROTOCOL
  187. If Had 5
  188.    SendWait z **B00 "when done?" "TOMCAT MENU" PACKER
  189. EndIf
  190. If Had 4
  191.    SendWait z **B00 "when done?" "TOMCAT MENU"
  192. EndIf
  193. If Had 2
  194.    SendWait g **B00
  195. EndIf
  196. If Had 1
  197.    Download zmodem !
  198. EndIf
  199. If Had 3
  200.    SendWait g "NO CARRIER"
  201. Else
  202.    Wait "NO CARRIER" "stay online..." "TOMCAT MENU"
  203.    If Had 3
  204.       SendWait g "NO CARRIER"
  205.    ElsIf Had 2
  206.       SendWait h "NO CARRIER"
  207.    EndIf
  208. EndIf
  209. If $ne("%port","%dport")
  210.    Set Port=%dport
  211. EndIf
  212.